home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / CAPTRIM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-27  |  3.1 KB  |  128 lines
  1. 10  'CAPTRIM - 19 OCT 93 rev. 29 MAR 94 rev. 27 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS
  4. 40  COLOR 7,0,1
  5. 50  UL$=STRING$(80,205)
  6. 60  BOX$=STRING$(64,205)
  7. 70  M$=">F"
  8. 80  P$="pF"
  9. 90  U$="#####"
  10. 100  U1$="#####.#"
  11. 110  '
  12. 120  '.....start
  13. 130  CLS
  14. 140  COLOR 15,2
  15. 150  PRINT " TRIMMER CAPACITORS";TAB(57);"by George Murphy VE3ERP ";
  16. 160  COLOR 1,0:PRINT STRING$(80,223);
  17. 170  COLOR 7,0
  18. 180  PRINT " Press number in <   > to calculate capacitances in:"
  19. 190  PRINT UL$;
  20. 200  PRINT TAB(18);"< 1 >  >F (microfarads)"
  21. 210  PRINT TAB(18);"< 2 >  pF (picofarads)"
  22. 220  PRINT UL$;
  23. 230  PRINT TAB(18);"  or Press 0 to exit....."
  24. 240  Z$=INKEY$
  25. 250  IF Z$="0"THEN CLS:RUN EX$
  26. 260  IF Z$="1"THEN V$=M$:GOTO 300
  27. 270  IF Z$="2"THEN V$=P$:GOTO 300
  28. 280  GOTO 240
  29. 290  '
  30. 300  '.....input data
  31. 310  CLS
  32. 320  T=3
  33. 330  PRINT TAB(T);
  34. 340  PRINT"     CAPACITORS IN PARALLEL                    CAPACITORS IN SERIES"
  35. 350  PRINT TAB(T);
  36. 360  PRINT"     THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN                    THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN"
  37. 370  PRINT TAB(T);
  38. 380  PRINT"Main CapacitanceDEFDBL C1"
  39. 390  PRINT TAB(T);
  40. 400  PRINT"               VARPTRSOUNDSOUND<0xB4!>BLOADSOUNDSOUNDCOLOR                  Main CapacitanceDEFDBL C1"
  41. 410  PRINT TAB(T);
  42. 420  PRINT"          A SOUNDSOUNDSOUND<0xB4!>      BLOADSOUNDSOUNDSOUND B                     A SOUNDSOUNDSOUND<0xB4!>BLOADSOUNDSOUNDSOUND<0xB4!>BLOADSOUNDSOUNDSOUND B"
  43. 430  PRINT TAB(T);
  44. 440  PRINT"               CLSSOUNDSOUND<0xB4!>BLOADSOUNDSOUND'             Variable TrimmerDEFDBL C2"
  45. 450  PRINT TAB(T);
  46. 460  PRINT"Variable TrimmerDEFDBL C2"
  47. 470  PRINT
  48. 480  PRINT UL$;
  49. 490  PRINT "ENTER: Maximum value in ";V$;" of main capacitance C1....";
  50. 500  INPUT C1
  51. 510  IF C1<10^5 THEN 590
  52. 520  BEEP:CLS:LOCATE 11,10
  53. 530  PRINT "SORRY! This program can only accept values of less than 100,000"
  54. 540  PRINT
  55. 550  PRINT TAB(31);"Press any key........"
  56. 560  IF INKEY$=""THEN 560
  57. 570  CLEAR:GOTO 10
  58. 580  '
  59. 590  LOCATE CSRLIN-1:PRINT STRING$(79,32)
  60. 600  LOCATE 3,23:PRINT "=";C1;V$;" max."
  61. 610  LOCATE 4,64:PRINT "=";C1;V$;" max."
  62. 620  LOCATE 10
  63. 630  COLOR 7,0
  64. 640  PRINT "ENTER: Maximum value in ";V$;" of trimmer capacitor C2...";
  65. 650  LOCATE 10
  66. 660  INPUT C2
  67. 670  LOCATE 7,23:PRINT "=";C2;V$;" max."
  68. 680  LOCATE 6,59:PRINT "=";C2;V$;" max."
  69. 690  '
  70. 700  LOCATE 9,16
  71. 710  COLOR 0,7
  72. 720  PRINT" RANGE of CAPACITANCE BETWEEN POINTS A and B "
  73. 730  COLOR 7,0
  74. 740  PRINT"   with   OPEN                          OPEN                          OPEN"
  75. 750  PRINT"    C1    OPEN  CAPACITORS IN PARALLEL  OPEN   CAPACITORS IN SERIES   OPEN"
  76. 760  PRINT"    at    OPEN   C2 min.      C2 max.   OPEN   C2 min.      C2 max.   OPEN"
  77. 770  PRINT BOX$;"RANDOMIZE"
  78. 780  LOCATE 9,11:PRINT "<0xCB!>"
  79. 790  LOCATE 9,65:PRINT "<0xCB!>"
  80. 800  LOCATE 13,11:PRINT "LOCATE"
  81. 810  LOCATE 13,38:PRINT "LOCATE"
  82. 820  '
  83. 830  '.....calculate values
  84. 840  INC=C1/10         'increment
  85. 850  FOR Z=1 TO 10
  86. 860  MAIN=MAIN+INC
  87. 870  PMIN=MAIN
  88. 880  PMAX=MAIN+C2
  89. 890  SMIN=0
  90. 900  SMAX=1/(1/MAIN+1/C2)
  91. 910  IF Z=10 THEN COLOR 0,7
  92. 920  PRINT USING U$;MAIN;:PRINT " ";V$;
  93. 930  PRINT TAB(12)USING U$;PMIN;:PRINT " ";V$;" to";
  94. 940  PRINT TAB(24)USING U$;PMAX;:PRINT " ";V$;
  95. 950  PRINT TAB(39)USING U$;SMIN;:PRINT " ";V$;" to";
  96. 960  PRINT TAB(50)USING U1$;SMAX;:PRINT " ";V$;
  97. 970  COLOR 7,0
  98. 980  PRINT TAB(65);"OPEN";
  99. 990  PRINT ""
  100. 1000  NEXT Z
  101. 1010  PRINT BOX$;"LOAD";
  102. 1020  NO=14
  103. 1030  NO=NO+1:LOCATE NO,67:PRINT "NOTE:"
  104. 1040  NO=NO+1:LOCATE NO,67:PRINT "THENTHENTHENTHENTHEN"
  105. 1050  NO=NO+1:LOCATE NO,67:PRINT "If C1 is"
  106. 1060  NO=NO+1:LOCATE NO,67:PRINT "a fixed"
  107. 1070  NO=NO+1:LOCATE NO,67:PRINT "capacitance"
  108. 1080  NO=NO+1:LOCATE NO,67:PRINT "then only the"
  109. 1090  NO=NO+1:LOCATE NO,67:PRINT "bottom line"
  110. 1100  NO=NO+1:LOCATE NO,67:PRINT "of the chart"
  111. 1110  NO=NO+1:LOCATE NO,67:PRINT "applies."
  112. 1120  GOSUB 1150
  113. 1130  GOTO 120
  114. 1140  '
  115. 1150  'HARDCOPY
  116. 1160  GOSUB 1270:LOCATE 25,2:COLOR 14,6
  117. 1170  PRINT " Press 1 to print screen, 2 to print screen & ";
  118. 1180  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  119. 1190  Z$=INKEY$:IF Z$="3"THEN GOSUB 1270:RETURN
  120. 1200  IF Z$="1"OR Z$="2"THEN GOSUB 1270:GOTO 1220
  121. 1210  GOTO 1190
  122. 1220  FOR QX=1 TO 24:FOR QY=1 TO 80
  123. 1230  LPRINT CHR$(SCREEN(QX,QY));
  124. 1240  NEXT QY:NEXT QX
  125. 1250  IF Z$="2"THEN LPRINT CHR$(12)
  126. 1260  GOTO 1160
  127. 1270  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  128.